home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / misc / robots.lha / player / tron.r < prev   
Text File  |  1993-04-25  |  1KB  |  83 lines
  1. A.U.G.U.P.
  2. M.Scheler
  3. /* Dieser Robot fährt einfach ein Quadrat ab und ballert auf alles,
  4.    was sich ihm in den Weg stellt.
  5.  
  6.  
  7.    $VER: Tron's C-Robot V1.2 (25.04.93)
  8.  
  9. */
  10.  
  11. int ddirec,pings;
  12.  
  13. shoot(direc)
  14.  
  15. int direc;
  16.  
  17. {
  18.  int range;
  19.  
  20.  range=scan(direc+ddirec,15);
  21.  if ((range>0)&&(range<700))
  22.   {
  23.    cannon (direc-5*ddirec+5,range);
  24.    pings=pings+1;
  25.    ddirec=(pings*5*100)/range;
  26.   }
  27.  else
  28.   {
  29.    pings=0;
  30.    ddirec=0;
  31.   }
  32.  
  33.  range=scan(direc+90,10);
  34.  if (range>0) cannon (direc+90,range);
  35. }
  36.  
  37. main()
  38.  
  39. {
  40.  int ddirec;
  41.  
  42.  ddirec=0;
  43.  pings=0;
  44.  while (1)
  45.   {
  46.    /* nach oben Fahren (am linken Rand) */
  47.    while (loc_y()<950)
  48.     {
  49.      drive (90,100);
  50.      shoot (0);
  51.     }
  52.    drive (90,0);
  53.    while (speed()>=50);
  54.  
  55.    /* nach rechts Fahren (am oberen Rand) */
  56.    while (loc_x()<950)
  57.     {
  58.      drive (0,100);
  59.      shoot (270);
  60.     }
  61.    drive (0,0);
  62.    while (speed()>=50);
  63.  
  64.    /* nach unten Fahren (am rechten Rand) */
  65.    while (loc_y()>50)
  66.     {
  67.      drive (270,100);
  68.      shoot (180);
  69.     }
  70.    drive (270,0);
  71.    while (speed()>=50);
  72.  
  73.    /* nach links Fahren (am unteren Rand) */
  74.    while (loc_x()>50)
  75.     {
  76.      drive (180,100);
  77.      shoot (90);
  78.     }
  79.    drive (180,0);
  80.    while (speed()>=50);
  81.   }
  82. }
  83.